library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.4.0      ✔ purrr   0.3.5 
## ✔ tibble  3.1.8      ✔ dplyr   1.0.10
## ✔ tidyr   1.2.1      ✔ stringr 1.5.0 
## ✔ readr   2.1.3      ✔ forcats 0.5.2 
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
library(plotly)
## 
## Attaching package: 'plotly'
## 
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following object is masked from 'package:graphics':
## 
##     layout
goals <- read.csv("data/TransposedGoals.csv")

blah blah

ggplot(data = goals, aes(x = Avg_DisLikelihood, y = Avg_HonLikelihood))+
  geom_point()+
  theme_bw()+
  labs(title = "Scatterplot of Goal Expectancies",
       x = "Likelihood that dishonesty would achieve goal",
       y = "Likelihood that honesty would achieve goal")

ggsave("goals_scatter.png", plot = last_plot(), device = "png")
## Saving 4 x 4 in image
goals %>%
  summarize(r = cor(Avg_DisLikelihood, Avg_HonLikelihood))
##            r
## 1 -0.8360762

blah blah the 2nd

ggplot(goals, aes(x = Diff_Likelihood))+
  geom_histogram(fill = "grey", color = "black")+
  theme_bw()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

goals %>%
  summary
##    CASE_LBL             R1_Hon          R2_Hon          R3_Hon     
##  Length:155         Min.   :1.000   Min.   :1.000   Min.   :1.000  
##  Class :character   1st Qu.:2.000   1st Qu.:2.000   1st Qu.:3.000  
##  Mode  :character   Median :3.000   Median :3.000   Median :4.000  
##                     Mean   :2.948   Mean   :3.065   Mean   :3.523  
##                     3rd Qu.:4.000   3rd Qu.:4.000   3rd Qu.:4.000  
##                     Max.   :5.000   Max.   :5.000   Max.   :5.000  
##                                                                    
##      R4_Hon          R5_Hon          R6_Hon          R7_Hon          Goal      
##  Min.   :1.000   Min.   :1.000   Min.   :1.000   Min.   :1.00   Min.   :  1.0  
##  1st Qu.:2.000   1st Qu.:3.000   1st Qu.:2.000   1st Qu.:2.00   1st Qu.: 39.5  
##  Median :2.000   Median :4.000   Median :3.000   Median :3.00   Median : 78.0  
##  Mean   :2.755   Mean   :3.574   Mean   :3.271   Mean   :3.09   Mean   : 78.0  
##  3rd Qu.:4.000   3rd Qu.:5.000   3rd Qu.:5.000   3rd Qu.:4.00   3rd Qu.:116.5  
##  Max.   :5.000   Max.   :5.000   Max.   :5.000   Max.   :5.00   Max.   :155.0  
##                                                                                
##      R1_Dis          R2_Dis          R3_Dis          R4_Dis     
##  Min.   :1.000   Min.   :1.000   Min.   :1.000   Min.   :1.000  
##  1st Qu.:3.000   1st Qu.:2.000   1st Qu.:2.000   1st Qu.:2.000  
##  Median :3.000   Median :3.000   Median :3.000   Median :4.000  
##  Mean   :3.084   Mean   :2.619   Mean   :3.135   Mean   :3.226  
##  3rd Qu.:4.000   3rd Qu.:3.000   3rd Qu.:4.000   3rd Qu.:5.000  
##  Max.   :5.000   Max.   :5.000   Max.   :5.000   Max.   :5.000  
##                                                                 
##      R5_Dis          R6_Dis          R7_Dis  Avg_HonLikelihood
##  Min.   :1.000   Min.   :1.000   Min.   :1   Min.   :1.000    
##  1st Qu.:2.000   1st Qu.:1.000   1st Qu.:2   1st Qu.:2.429    
##  Median :4.000   Median :3.000   Median :3   Median :3.000    
##  Mean   :3.497   Mean   :2.604   Mean   :3   Mean   :3.175    
##  3rd Qu.:5.000   3rd Qu.:4.000   3rd Qu.:4   3rd Qu.:4.143    
##  Max.   :5.000   Max.   :5.000   Max.   :5   Max.   :5.000    
##                  NA's   :1                                    
##  Avg_DisLikelihood Diff_Likelihood  
##  Min.   :1.000     Min.   :-4.0000  
##  1st Qu.:2.000     1st Qu.:-1.4286  
##  Median :3.286     Median :-0.2857  
##  Mean   :3.023     Mean   : 0.1524  
##  3rd Qu.:3.857     3rd Qu.: 2.1429  
##  Max.   :5.000     Max.   : 4.0000  
## 

blah blah the 3rd

polar_goals <- goals %>%
  filter(Diff_Likelihood >= 2.1 | Diff_Likelihood <= -1.4,
         Avg_HonLikelihood >= 3.0 | Avg_HonLikelihood <= 2.4,
         Avg_DisLikelihood >= 3.2 | Avg_DisLikelihood <= 2.00)

ggplot(data = polar_goals, aes(x = Avg_DisLikelihood, y = Avg_HonLikelihood))+
  geom_point(position = "jitter")+
  theme_bw()

polar_goals <- polar_goals %>%
  mutate(likelihood = if_else(Avg_HonLikelihood > 2.99, "Honesty", "Dishonesty"))
polar_goals %>%
  group_by(likelihood) %>%
  count()
## # A tibble: 2 × 2
## # Groups:   likelihood [2]
##   likelihood     n
##   <chr>      <int>
## 1 Dishonesty    28
## 2 Honesty       36
polar_goals %>%
  filter(likelihood == "Honesty") %>%
  arrange(desc(Diff_Likelihood)) %>%
  arrange(desc(Avg_HonLikelihood))
##                 CASE_LBL R1_Hon R2_Hon R3_Hon R4_Hon R5_Hon R6_Hon R7_Hon Goal
## 1  Hon_CorrectInaccurate      5      5      5      5      5      5      5   57
## 2          Hon_AvoidLiar      5      5      5      5      5      5      5   24
## 3         Hon_NeedToKnow      4      5      5      5      5      5      5   12
## 4        Hon_ExpFeelings      4      5      5      5      5      5      5    8
## 5            Hon_ImpInfo      4      5      5      5      5      5      5   27
## 6         Hon_BeYourself      5      5      5      5      5      5      4   70
## 7     Hon_ExpressHowFeel      4      5      5      5      5      5      5   74
## 8         Hon_Self_Image      4      4      5      5      5      5      5   48
## 9        Hon_AvoidViolat      4      4      5      5      5      5      5   37
## 10       Hon_ShareMyself      5      4      5      5      5      5      4   49
## 11            Hon_BeAuth      4      4      5      5      5      5      4   73
## 12       Hon_ShowHonesty      4      4      5      4      5      5      5    9
## 13             Hon_Chest      3      5      5      5      5      4      5   28
## 14         Hon_AvoidFake      4      4      5      4      5      5      5   61
## 15        Hon_RightThing      4      4      5      4      5      5      5    2
## 16         Hon_AvoidConf      4      4      5      4      5      5      5   43
## 17         Hon_FosterUnd      4      4      4      5      5      5      5  104
## 18         Hon_CommClear      4      5      4      4      5      5      5   66
## 19        Hon_AvoidGross      5      1      5      5      5      5      5   33
## 20         Hon_AcknFault      4      4      5      4      4      5      5    1
## 21        Hon_BeBestSelf      4      3      5      4      5      5      5   23
## 22         Hon_GainTrust      3      4      4      5      5      5      5   22
## 23       Hon_AvoidPollut      5      3      5      4      5      5      4   34
## 24         Hon_TreatResp      5      3      4      5      5      5      4   69
## 25          Hon_AvoidMis      4      4      4      5      5      4      4   17
## 26   Hon_ReduUncertainty      4      4      4      3      5      5      5   41
## 27        Hon_ConveyInfo      3      3      5      4      5      5      5   46
## 28            Hon_GoodEx      4      3      4      4      5      5      5   16
## 29             Hon_BeUnd      3      3      4      5      5      5      5   65
## 30        Hon_EffecCoord      2      4      4      4      5      5      5   45
## 31        Hon_HelpDoBett      4      4      4      4      3      5      5   51
## 32        Hon_HelpProduc      3      4      5      3      5      5      4   71
## 33           Hon_VoidCov      4      1      4      5      5      5      5    6
## 34         Hon_FacilWork      3      4      4      4      5      5      4   39
## 35        Hon_HelpImprov      4      3      4      4      5      5      4   40
## 36         Hon_FacilPlan      3      3      4      4      5      5      4   21
##    R1_Dis R2_Dis R3_Dis R4_Dis R5_Dis R6_Dis R7_Dis Avg_HonLikelihood
## 1       1      1      1      1      1      1      1          5.000000
## 2       1      1      1      2      1      1      1          5.000000
## 3       2      1      1      1      1      1      1          4.857143
## 4       3      1      1      1      1      1      1          4.857143
## 5       2      1      2      1      1      1      1          4.857143
## 6       2      1      1      1      1      1      2          4.857143
## 7       2      1      2      1      1      1      1          4.857143
## 8       2      2      1      2      1      1      1          4.714286
## 9       2      2      2      1      1      2      3          4.714286
## 10      3      2      1      5      1      1      1          4.714286
## 11      1      1      1      1      1      1      1          4.571429
## 12      3      2      1      1      1      1      1          4.571429
## 13      4      1      2      1      1      1      1          4.571429
## 14      2      2      2      1      2      1      1          4.571429
## 15      2      2      2      1      2      2      1          4.571429
## 16      2      2      1      2      2      2      1          4.571429
## 17      4      2      2      1      1      1      1          4.571429
## 18      3      2      2      2      2      1      1          4.571429
## 19      1      1      1      1      1      1      1          4.428571
## 20      4      2      1      1      1      1      1          4.428571
## 21      3      2      1      1      1      2      1          4.428571
## 22      3      2      2      2      2      2      1          4.428571
## 23      2      3      2      2      1      2      2          4.428571
## 24      2      3      2      1      2      2      2          4.428571
## 25      2      2      2      2      1      1      1          4.285714
## 26      2      2      2      2      1      1      1          4.285714
## 27      3      3      1      1      1      1      1          4.285714
## 28      2      2      2      2      2      1      1          4.285714
## 29      3      3      2      1      2      1      1          4.285714
## 30      3      2      2      1      1      1      1          4.142857
## 31      2      2      1      2      1      2      2          4.142857
## 32      3      2      2      1      1      2      2          4.142857
## 33      3      1      2      2      2      3      1          4.142857
## 34      3      2      2      1      1      2      3          4.142857
## 35      2      2      2      2      2      2      2          4.142857
## 36      3      2      2      1      1      1      2          4.000000
##    Avg_DisLikelihood Diff_Likelihood likelihood
## 1           1.000000        4.000000    Honesty
## 2           1.142857        3.857143    Honesty
## 3           1.142857        3.714286    Honesty
## 4           1.285714        3.571429    Honesty
## 5           1.285714        3.571429    Honesty
## 6           1.285714        3.571429    Honesty
## 7           1.285714        3.571429    Honesty
## 8           1.428571        3.285714    Honesty
## 9           1.857143        2.857143    Honesty
## 10          2.000000        2.714286    Honesty
## 11          1.000000        3.571429    Honesty
## 12          1.428571        3.142857    Honesty
## 13          1.571429        3.000000    Honesty
## 14          1.571429        3.000000    Honesty
## 15          1.714286        2.857143    Honesty
## 16          1.714286        2.857143    Honesty
## 17          1.714286        2.857143    Honesty
## 18          1.857143        2.714286    Honesty
## 19          1.000000        3.428571    Honesty
## 20          1.571429        2.857143    Honesty
## 21          1.571429        2.857143    Honesty
## 22          2.000000        2.428571    Honesty
## 23          2.000000        2.428571    Honesty
## 24          2.000000        2.428571    Honesty
## 25          1.571429        2.714286    Honesty
## 26          1.571429        2.714286    Honesty
## 27          1.571429        2.714286    Honesty
## 28          1.714286        2.571429    Honesty
## 29          1.857143        2.428571    Honesty
## 30          1.571429        2.571429    Honesty
## 31          1.714286        2.428571    Honesty
## 32          1.857143        2.285714    Honesty
## 33          2.000000        2.142857    Honesty
## 34          2.000000        2.142857    Honesty
## 35          2.000000        2.142857    Honesty
## 36          1.714286        2.285714    Honesty
polar_goals %>%
  filter(likelihood == "Dishonesty") %>%
  arrange(Diff_Likelihood) %>%
    arrange(desc(Avg_DisLikelihood))
##             CASE_LBL R1_Hon R2_Hon R3_Hon R4_Hon R5_Hon R6_Hon R7_Hon Goal
## 1      Hon_GetSometh      1      1      1      1      1      1      1   98
## 2      Hon_BeSeeBett      2      1      1      1      1      1      1  142
## 3      Hon_KeepLieGo      1      1      1      1      1      1      1  130
## 4       Hon_HidePers      1      2      1      1      1      1      1   75
## 5        Hon_CoverUp      3      1      2      1      1      1      1  117
## 6      Hon_AvoidArgu      2      2      2      1      2      2      2  108
## 7      Hon_AvoidVuln      2      2      1      1      1      3      2  121
## 8       Hon_AvoidBad      2      2      2      2      1      2      3  136
## 9   Hon_ProtFeelings      2      3      2      1      3      2      2   13
## 10  Hon_TrickSomeone      2      1      1      1      1      1      1  122
## 11   Hon_AvoidOverre      2      3      2      1      2      1      2   93
## 12        Hon_Secret      5      1      2      1      2      2      1   76
## 13   Hon_AvoidUncomf      2      2      3      1      3      2      1   91
## 14      Hon_AvoidAwk      2      3      2      1      2      2      3   83
## 15     Hon_AvoidReje      2      2      2      1      3      2      2  140
## 16    Hon_LookBetter      2      3      3      2      2      1      2   31
## 17     Hon_DecMyself      1      1      1      1      1      1      1  105
## 18      Hon_ProtPriv      1      2      3      1      3      2      2  101
## 19   Hon_AvoidCorrec      2      1      2      1      3      4      2  103
## 20    Hon_AvoidWaves      2      2      4      3      2      2      1   55
## 21    Hon_AvoidOther      2      3      3      2      1      1      1  147
## 22      Hon_StopConv      2      2      3      2      2      2      1  109
## 23     Hon_PresrvEng      2      3      2      1      2      1      3  115
## 24     Hon_KeepBrief      2      3      3      1      2      2      1  151
## 25    Hon_ConfToRole      2      2      2      1      3      3      2  155
## 26      Hon_Surprise      3      3      3      1      1      1      1   77
## 27 Hon_ConfuseOthers      2      1      2      1      2      1      1   99
## 28      Hon_ConvMyse      2      2      1      1      3      1      2  106
##    R1_Dis R2_Dis R3_Dis R4_Dis R5_Dis R6_Dis R7_Dis Avg_HonLikelihood
## 1       5      5      5      5      5      5      5          1.000000
## 2       5      5      5      4      5      5      4          1.142857
## 3       5      4      4      4      5      5      5          1.000000
## 4       4      3      5      5      5      5      5          1.142857
## 5       4      4      5      4      5      5      5          1.428571
## 6       4      4      5      5      5      5      4          1.857143
## 7       4      4      5      5      5      3      5          1.714286
## 8       4      4      5      4      5      5      4          2.000000
## 9       4      4      4      5      5      5      4          2.142857
## 10      4      4      5      3      5      5      4          1.142857
## 11      4      4      5      4      5      4      3          1.857143
## 12      2      5      5      5      5      2      5          2.000000
## 13      3      3      5      5      5      4      4          2.000000
## 14      4      3      5      5      5      3      4          2.142857
## 15      4      2      5      5      4      4      4          2.000000
## 16      3      3      5      5      5      3      4          2.142857
## 17      5      5      3      4      3      3      4          1.000000
## 18      3      4      4      5      5      2      4          2.000000
## 19      4      2      4      5      5      3      4          2.142857
## 20      4      3      4      4      5      3      4          2.285714
## 21      4      2      4      4      5      3      4          1.857143
## 22      3      3      4      4      5      3      4          2.000000
## 23      3      3      4      4      5      3      4          2.000000
## 24      3      2      4      4      5      4      4          2.000000
## 25      4      3      4      5      4      2      4          2.142857
## 26      3      3      4      4      5      2      4          1.857143
## 27      3      3      4      1      4      4      5          1.428571
## 28      3      3      5      4      3      1      4          1.714286
##    Avg_DisLikelihood Diff_Likelihood likelihood
## 1           5.000000       -4.000000 Dishonesty
## 2           4.714286       -3.571429 Dishonesty
## 3           4.571429       -3.571429 Dishonesty
## 4           4.571429       -3.428571 Dishonesty
## 5           4.571429       -3.142857 Dishonesty
## 6           4.571429       -2.714286 Dishonesty
## 7           4.428571       -2.714286 Dishonesty
## 8           4.428571       -2.428571 Dishonesty
## 9           4.428571       -2.285714 Dishonesty
## 10          4.285714       -3.142857 Dishonesty
## 11          4.142857       -2.285714 Dishonesty
## 12          4.142857       -2.142857 Dishonesty
## 13          4.142857       -2.142857 Dishonesty
## 14          4.142857       -2.000000 Dishonesty
## 15          4.000000       -2.000000 Dishonesty
## 16          4.000000       -1.857143 Dishonesty
## 17          3.857143       -2.857143 Dishonesty
## 18          3.857143       -1.857143 Dishonesty
## 19          3.857143       -1.714286 Dishonesty
## 20          3.857143       -1.571429 Dishonesty
## 21          3.714286       -1.857143 Dishonesty
## 22          3.714286       -1.714286 Dishonesty
## 23          3.714286       -1.714286 Dishonesty
## 24          3.714286       -1.714286 Dishonesty
## 25          3.714286       -1.571429 Dishonesty
## 26          3.571429       -1.714286 Dishonesty
## 27          3.428571       -2.000000 Dishonesty
## 28          3.285714       -1.571429 Dishonesty

Trying to make a fancy plot

So, first my goal is the make an interactive version of our scatterplot from earlier, that tells you the name of each goal when you hover over it. I also want to use color to more clearly emphasize the size of the difference between honesty and dishonesty scores for each goal.

Using the plotly package, I was able to make an interactive plot. To make it show the actual name of each goal, I had to specify a new aesthetic “label” for the tooltip to use. To get the points to have the gradient effect I wanted, I also had to create an absolute value version of the difference scores, so that goals that are more “polar” will be lighter than more ambivalent goals, regardless of whether they are pulling for the honest or the dishonest pole.

I also wanted the labels to be as helpful as possible, by having the actual name of the goals as they were presented to raters. Unfortunately, this required me to create a new variable, labeling each goal by hand.

#absolute value differences
goals <- goals %>%
  mutate(abs_diff = abs(Diff_Likelihood))
  
goals_interactive <- goals %>%
  ggplot(aes(x = Avg_DisLikelihood, y = Avg_HonLikelihood, label = CASE_LBL))+
  geom_point(aes(color = abs_diff), position = "jitter")+
  theme_bw()

ggplotly(tooltip = c("label"))

I’m so excited about this plot! The only problem with it is that it is using names from the csv file, which are not consistently helpful for telling us what each goal actually represents. I want the labels to be as helpful as possible, by having the actual name of the goals as they were presented to raters. Unfortunately, this required me to create a new variable, labeling each goal by hand.

goals <- goals %>%
  mutate(goal_name = case_when(
    CASE_LBL == "Hon_AcknFault" ~ "Acknowledge fault",
    CASE_LBL == "Hon_RightThing" ~ "Know that I did the right thing",
    CASE_LBL == "Hon_Consequences" ~ "Test the consequences",
    CASE_LBL == "Hon_GetWant" ~ "Get what I want",
    CASE_LBL == "Hon_AvProb" ~ "Avoid making a problem worse",
    CASE_LBL == "Hon_VoidCov" ~ "Avoid the coverup",
    CASE_LBL == "Hon_RecogProb" ~ "Recognize my own problems",
    CASE_LBL == "Hon_ExpFeelings" ~ "Express my feelings",
    CASE_LBL == "Hon_ShowHonesty" ~ "Show that I am an honest person",
    CASE_LBL == "Hon_ShowFairness" ~ "Show that I am fair and balanced",
    CASE_LBL == "Hon_ProtEmb" ~ "Protect a friend from embarassment",
    CASE_LBL == "Hon_NeedToKnow" ~ "Tell someone something they need to know",
    CASE_LBL == "Hon_ProtFeelings" ~ "Protect someone's feelings",
    CASE_LBL == "Hon_BeKind" ~ "Be kind",
    CASE_LBL == "Hon_KeepFromEmb" ~ "Keep someone from embarassing themselves",
    CASE_LBL == "Hon_GoodEx" ~ "Set a good example for others",
    CASE_LBL == "Hon_AvoidMis" ~ "Avoid a misunderstanding",
    CASE_LBL == "Hon_FollowNorms" ~ "Follow norms",
    CASE_LBL == "Hon_AvoidGuilt" ~ "Avoid feeling guilty",
    CASE_LBL == "Hon_FacilConvo" ~ "Facilitate conversation",
    CASE_LBL == "Hon_FacilPlan" ~ "Facilitate people's planning",
    CASE_LBL == "Hon_GainTrust" ~ "Gain trust",
    CASE_LBL == "Hon_BeBestSelf" ~ "Be my best self",
    CASE_LBL == "Hon_AvoidLiar" ~ "Avoid being a liar",
    CASE_LBL == "Hon_DisapParents" ~ "Avoid disappointing my parents",
    CASE_LBL == "Hon_HurtOther" ~ "Hurt someone",
    CASE_LBL == "Hon_ImpInfo" ~ "Convey important information",
    CASE_LBL == "Hon_Chest" ~ "Get something off my chest",
    CASE_LBL == "Hon_AvoidDisap" ~ "Avoid disapproval",
    CASE_LBL == "Hon_AvBreakTrust" ~ "Avoid breaking someone's trust",
    CASE_LBL == "Hon_LookBetter" ~ "Look better than I really am",
    CASE_LBL == "Hon_BeAttrac" ~ "Be more attractive",
    CASE_LBL == "Hon_AvoidGross" ~ "Avoid the gross feeling I get from lying",
    CASE_LBL == "Hon_AvoidPollut" ~ "Avoid polluting the relationship",
    CASE_LBL == "Hon_KeepFirm" ~ "Keep a firm ground",
    CASE_LBL == "Hon_BeAware" ~ "Know what is going on",
    CASE_LBL == "Hon_AvoidViolat" ~ "Avoid a feeling of moral violation",
    CASE_LBL == "Hon_GetHonesty" ~ "Get someone else to be honest",
    CASE_LBL == "Hon_FacilWork" ~ "Facilitate others' work",
    CASE_LBL == "Hon_HelpImprov" ~ "Help someone improve",
    CASE_LBL == "Hon_ReduUncertainty" ~ "Reduce uncertainty",
    CASE_LBL == "Hon_ImproveEffic" ~ "Improve efficiency",
    CASE_LBL == "Hon_AvoidConf" ~ "Avoid Confusion",
    CASE_LBL == "Hon_AvoidSusp" ~ "Avoid beeing seen as suspicious",
    CASE_LBL == "Hon_EffecCoord" ~ "Effectively coordinate with others",
    CASE_LBL == "Hon_GetDeserve" ~ "Get something I deserve",
    CASE_LBL == "Hon_Self_Image" ~ "Act consistently with my self-image (as an honest person)",
    CASE_LBL == "Hon_ShareMyself" ~ "Share myself with others",
    CASE_LBL == "Hon_HelpGetSom" ~ "Help someone get something important to them",
    CASE_LBL == "Hon_HelpDoBett" ~ "Help someone do better in the future",
    CASE_LBL == "Hon_HelpSolveProb" ~ "Help someone solve a problem",
    CASE_LBL == "Hon_FollowScript" ~ "Follow the script",
    CASE_LBL == "Hon_AvoidWaves" ~ "Avoid making waves",
    CASE_LBL == "Hon_PutInPlace" ~ "Put someone in their place",
    CASE_LBL == "Hon_CorrectInaccurate" ~ "Correct an inaccurate statement",
    CASE_LBL == "Hon_SeekHelp" ~ "Seek help or support from someone",
    CASE_LBL == "Hon_BeHumb" ~ "Be humble",
    CASE_LBL == "Hon_BeResp" ~ "Be respected by others",
    CASE_LBL == "Hon_AvoidFake" ~ "Avoid seeming fake or insincere",
    CASE_LBL == "Hon_ActNat" ~ "Act naturally",
    CASE_LBL == "Hon_MakeWorth" ~ "Make the conversation worth having",
    CASE_LBL == "Hon_MakeMean" ~ "Make the conversation meaningful",
    CASE_LBL == "Hon_BeUnd" ~ "Be understood",
    CASE_LBL == "Hon_CommClear" ~ "Communicate clearly",
    CASE_LBL == "Hon_Deepen" ~ "Deepen my connection with someone",
    CASE_LBL == "Hon_AvoidCaught" ~ "Avoid getting caught in a lie",
    CASE_LBL == "Hon_TreatResp" ~ "Treat someone with respect",
    CASE_LBL == "Hon_BeYourself" ~ "Be yourself",
    CASE_LBL == "Hon_HelpProduc" ~ "Help someone be more productive",
    CASE_LBL == "Hon_LongRun" ~ "Help someone in the long run",
    CASE_LBL == "Hon_BeAuth" ~ "Be authentic",
    CASE_LBL == "Hon_HidePers" ~ "Hide something personal",
    CASE_LBL == "Hon_Secret" ~ "Keep a secret",
    CASE_LBL == "Hon_Surprise" ~ "Surprise someone",
    CASE_LBL == "Hon_EnsurSafe" ~ "Ensure my safety",
    CASE_LBL == "Hon_NotFeelBad" ~ "Not feel bad about myself",
    CASE_LBL == "Hon_AvoidJudg" ~ "Avoid judgement",
    CASE_LBL == "Hon_GetWhatIWant" ~ "Get what I want",
    CASE_LBL == "Hon_KeepPeace" ~ "Keep the peace",
    CASE_LBL == "Hon_AvoidAwk" ~ "Avoid an awkward situation",
    CASE_LBL == "Hon_AvoidAng" ~ "Avoid making someone angry",
    CASE_LBL == "Hon_ChangeBeh" ~ "Change someone's behavior",
    CASE_LBL == "Hon_BeBest" ~ "Be the best person",
    CASE_LBL == "Hon_AvoidDisSomeone" ~ "Avoid disappointing someone",
    CASE_LBL == "Hon_Story" ~ "Tell a good story",
    CASE_LBL == "Hon_AvoidUncomf" ~ "Avoid making someone uncomfortable",
    CASE_LBL == "Hon_WasteTime" ~ "Avoid wasting my time",
    CASE_LBL == "Hon_AvoidOverre" ~ "Avoid an overreaction",
    CASE_LBL == "Hon_AvoidHassle" ~ "Avoid dealing with the hassle",
    CASE_LBL == "Hon_AvoidDoing" ~ "Avoid doing something you don't want to do",
    CASE_LBL == "Hon_GetAtten" ~ "Get attention",
    CASE_LBL == "Hon_GetSometh" ~ "Get something that I wouldn't be able to get without lying",
    CASE_LBL == "Hon_ConfuseOthers" ~ "Confuse others",
    CASE_LBL == "Hon_GainConfi" ~ "Help someone gain confidence",
    CASE_LBL == "Hon_ProtPriv" ~ "Protect my privacy",
    CASE_LBL == "Hon_AvoidSuff" ~ "Avoid others' suffering",
    CASE_LBL == "Hon_AvoidCorrec" ~ "Avoid correction",
    CASE_LBL == "Hon_FosterUnd" ~ "Foster understanding",
    CASE_LBL == "Hon_DecMyself" ~ "Deceive myself",
    CASE_LBL == "Hon_ConvMyse" ~ "Convince myself of something",
    CASE_LBL == "Hon_FeelTrue" ~ "Feel as though something is true",
    CASE_LBL == "Hon_AvoidArgu" ~ "Avoid an argument",
    CASE_LBL == "Hon_StopConv" ~ "Get out of a conversation",
    CASE_LBL == "Hon_ToLookGood" ~ "Look good to others",
    CASE_LBL == "Hon_ControlOther" ~ "Control someone",
    CASE_LBL == "Hon_AvoidEmb" ~ "Avoid embarassment",
    CASE_LBL == "Hon_DrawAtten" ~ "Draw attention to what is most important",
    CASE_LBL == "Hon_ExplMyself" ~ "Avoid having to explain myself",
    CASE_LBL == "Hon_PresrvEng" ~ "Preserve my energy",
    CASE_LBL == "Hon_Strategy" ~ "Allow a strategy to play out",
    CASE_LBL == "Hon_CoverUp" ~ "Cover up a misdeed",
    CASE_LBL == "Hon_AvoidPunish" ~ "Avoid punishment",
    CASE_LBL == "Hon_ProtectRel" ~ "Protect my relationship with someone",
    CASE_LBL == "Hon_PositvDir" ~ "Redirect the conversation in a more positive direction",
    CASE_LBL == "Hon_AvoidVuln" ~ "Avoid being vulnerable",
    CASE_LBL == "Hon_TrickSomeone" ~ "Trick someone",
    CASE_LBL == "Hon_EntertSelf" ~ "Entertain myself",
    CASE_LBL == "Hon_BePolite" ~ "Be polite",
    CASE_LBL == "Hon_PleaseOther" ~ "Please someone",
    CASE_LBL == "Hon_GentleOther" ~ "Be gentle with others",
    CASE_LBL == "Hon_MakeFair" ~ "Make things fair",
    CASE_LBL == "Hon_Autonomy" ~ "Assert my autonomy or independence",
    CASE_LBL == "Hon_HurtReput" ~ "Hurt someone's reputation",
    CASE_LBL == "Hon_KeepLieGo" ~ "Keep a previous lie going",
    CASE_LBL == "Hon_SeemSmart" ~ "Seem knowledgable or intelligent",
    CASE_LBL == "Hon_GetAct" ~ "Get someone to act a certain way",
    CASE_LBL == "Hon_AvoidLose" ~ "Avoid losing something",
    CASE_LBL == "Hon_HowToAct" ~ "Avoid not knowing how to act",
    CASE_LBL == "Hon_AvoidBad" ~ "Avoid something bad that you expected",
    CASE_LBL == "Hon_137" ~ "Avoid feeling shame",
    CASE_LBL == "Hon_KeepSmooth" ~ "Keep the interaction going smoothly",
    CASE_LBL == "Hon_MakeLike" ~ "Make someone like you",
    CASE_LBL == "Hon_AvoidReje" ~ "Avoid rejection",
    CASE_LBL == "Hon_GetOtherDo" ~ "Get someone to do what you needed them to do",
    CASE_LBL == "Hon_BeSeeBett" ~ "Be seen as better than I really am",
    CASE_LBL == "Hon_SeemFriendly" ~ "Seem friendly",
    CASE_LBL == "Hon_GetAhead" ~ "Get ahead",
    CASE_LBL == "Hon_AvoidAccu" ~ "Avoid being accused of wrongdoing",
    CASE_LBL == "Hon_AvoidOther" ~ "Avoid a particular person",
    CASE_LBL == "Hon_MakeFeelBet" ~ "Make someone feel better in the moment",
    CASE_LBL == "Hon_ProtectWorr" ~ "Protect someone from being worried",
    CASE_LBL == "Hon_ContinConvo" ~ "Keep the conversation going",
    CASE_LBL == "Hon_KeepBrief" ~ "Keep the interaction brief",
    CASE_LBL == "Hon_FeelClose" ~ "Feel close to someone",
    CASE_LBL == "Hon_GetEven" ~ "Get even with someone",
    CASE_LBL == "Hon_SayExpec" ~ "Say or do what was expected",
    CASE_LBL == "Hon_ConfToRole" ~ "Conform to a role"))

I also took this opportunity to filter out some duplicate goals, by not giving them names. Now, let’s try again.

#absolute value differences
goals <- goals %>%
  mutate(abs_diff = abs(Diff_Likelihood))
  
goals_interactive <- goals %>%
  filter(!is.na(goal_name)) %>%
  ggplot(aes(x = Avg_DisLikelihood, y = Avg_HonLikelihood, label = goal_name))+
  geom_point(aes(color = abs_diff), position = "jitter")+
  theme_bw()+
  labs(title = "Scatterplot of Goal Expectancies",
       x = "Likelihood that dishonesty would achieve goal",
       y = "Likelihood that honesty would achieve goal")

ggplotly(tooltip = c("label"))

Trying another one

What I would like to do now is select a few exemplar goals, which seem to (a) tap into most of the important themes/contents of goals and (b) represent a goals from the range of honesty vs. dishonesty

goals %>%
  arrange(Diff_Likelihood)
##                  CASE_LBL R1_Hon R2_Hon R3_Hon R4_Hon R5_Hon R6_Hon R7_Hon Goal
## 1           Hon_GetSometh      1      1      1      1      1      1      1   98
## 2           Hon_KeepLieGo      1      1      1      1      1      1      1  130
## 3           Hon_BeSeeBett      2      1      1      1      1      1      1  142
## 4            Hon_HidePers      1      2      1      1      1      1      1   75
## 5             Hon_CoverUp      3      1      2      1      1      1      1  117
## 6        Hon_TrickSomeone      2      1      1      1      1      1      1  122
## 7           Hon_DecMyself      1      1      1      1      1      1      1  105
## 8           Hon_AvoidArgu      2      2      2      1      2      2      2  108
## 9           Hon_AvoidVuln      2      2      1      1      1      3      2  121
## 10           Hon_AvoidBad      2      2      2      2      1      2      3  136
## 11       Hon_ProtFeelings      2      3      2      1      3      2      2   13
## 12        Hon_AvoidOverre      2      3      2      1      2      1      2   93
## 13             Hon_Secret      5      1      2      1      2      2      1   76
## 14        Hon_AvoidUncomf      2      2      3      1      3      2      1   91
## 15          Hon_AvoidJudg      2      2      2      2      3      3      3   80
## 16           Hon_AvoidAwk      2      3      2      1      2      2      3   83
## 17         Hon_AvoidDoing      3      4      3      1      2      3      2   95
## 18      Hon_ConfuseOthers      2      1      2      1      2      1      1   99
## 19        Hon_AvoidPunish      2      4      2      2      3      2      3  118
## 20          Hon_AvoidReje      2      2      2      1      3      2      2  140
## 21         Hon_LookBetter      2      3      3      2      2      1      2   31
## 22           Hon_AvoidAng      2      3      3      4      2      3      2   84
## 23   Hon_AvoidAwkwardness      2      3      3      2      3      2      2   96
## 24           Hon_ProtPriv      1      2      3      1      3      2      2  101
## 25         Hon_AvoidOther      2      3      3      2      1      1      1  147
## 26        Hon_MakeFeelBet      2      3      3      2      3      2      2  148
## 27           Hon_Surprise      3      3      3      1      1      1      1   77
## 28        Hon_AvoidCorrec      2      1      2      1      3      4      2  103
## 29           Hon_StopConv      2      2      3      2      2      2      1  109
## 30          Hon_PresrvEng      2      3      2      1      2      1      3  115
## 31    Hon_AvoidOtherDisap      2      3      3      2      3      4      2  132
## 32          Hon_KeepBrief      2      3      3      1      2      2      1  151
## 33         Hon_AvoidWaves      2      2      4      3      2      2      1   55
## 34           Hon_ConvMyse      2      2      1      1      3      1      2  106
## 35           Hon_AvoidEmb      2      3      3      3      2      2      3  112
## 36         Hon_ConfToRole      2      2      2      1      3      3      2  155
## 37          Hon_EnsurSafe      2      3      3      1      2      3      3   78
## 38          Hon_KeepPeace      2      3      3      3      2      3      2   82
## 39           Hon_BePolite      4      2      3      2      2      2      2  124
## 40        Hon_GentleOther      2      3      3      2      3      2      2  126
## 41      Hon_AvoidStandOut      2      2      4      1      3      1      3   54
## 42              Hon_Story      3      3      3      4      2      2      2   90
## 43          Hon_AvoidSuff      3      2      3      1      4      2      3  102
## 44        Hon_PleaseOther      2      3      3      2      5      3      2  125
## 45           Hon_GetAhead      3      2      3      2      3      2      3  145
## 46        Hon_ProtectWorr      2      3      4      1      3      2      3  149
## 47       Hon_GetWhatIWant      3      4      3      2      3      3      3   81
## 48        Hon_AvoidHassle      2      3      4      1      4      2      3   94
## 49       Hon_ControlOther      3      3      3      2      2      3      2  111
## 50           Hon_Strategy      2      1      2      2      2      1      2  116
## 51          Hon_AvoidLose      3      3      3      2      3      3      3  134
## 52         Hon_AvoidDisap      2      3      4      2      3      5      2   29
## 53    Hon_AvoidDisSomeone      2      3      3      2      2      4      3   89
## 54           Hon_GetAtten      3      4      4      2      3      2      3   97
## 55         Hon_ExplMyself      2      2      2      1      5      1      4  114
## 56         Hon_EntertSelf      3      2      3      1      1      2      2  123
## 57          Hon_HurtReput      3      3      3      3      3      3      3  129
## 58          Hon_SeemSmart      3      3      3      2      4      2      3  131
## 59             Hon_GetAct      2      4      3      2      3      3      2  133
## 60          Hon_HurtOther      2      3      4      3      3      3      3   26
## 61       Hon_FollowScript      4      2      4      1      2      3      2   53
## 62         Hon_ToLookGood      3      3      3      3      4      3      3  110
## 63         Hon_KeepSmooth      3      2      3      2      3      3      2  138
## 64           Hon_MakeLike      3      2      3      3      3      2      2  139
## 65       Hon_SeemFriendly      2      4      3      2      3      2      2  143
## 66            Hon_GetEven      3      3      4      4      2      2      2  153
## 67            Hon_GetWant      2      4      3      2      4      5      3    4
## 68            Hon_ProtEmb      3      2      4      4      3      4      2   11
## 69            Hon_SeemGen      3      3      3      3      3      4      2  144
## 70          Hon_AvoidAccu      1      3      4      5      5      3      2  146
## 71           Hon_SayExpec      3      2      4      2      4      3      2  154
## 72       Hon_DisapParents      2      3      4      2      3      4      4   25
## 73           Hon_BeAttrac      3      3      2      2      4      2      2   32
## 74           Hon_FeelTrue      1      1      3      1      3      3      4  107
## 75         Hon_NotFeelBad      2      3      4      1      5      4      2   79
## 76      Hon_FollowNorms.0      4      4      4      2      4      3      2   86
## 77          Hon_PositvDir      3      3      3      2      3      3      2  120
## 78           Hon_HowToAct      3      3      4      1      4      1      1  135
## 79       Hon_Consequences      2      1      4      2      3      2      3    3
## 80             Hon_BeKind      2      3      3      3      5      4      3   14
## 81        Hon_FollowNorms      3      3      4      2      4      4      2   18
## 82         Hon_HelpGetSom      3      3      5      1      3      3      3   50
## 83         Hon_ProtectRel      3      4      4      3      5      5      1  119
## 84         Hon_GetOtherDo      2      5      4      2      4      5      2  141
## 85          Hon_ChangeBeh      3      4      4      3      3      4      3   85
## 86          Hon_GainConfi      2      4      4      3      4      3      3  100
## 87        Hon_ContinConvo      4      3      3      4      3      2      2  150
## 88             Hon_AvProb      4      4      4      3      4      5      3    5
## 89        Hon_KeepFromEmb      3      2      4      4      3      5      3   15
## 90             Hon_BeHumb      3      3      4      2      3      1      3   59
## 91       Hon_FacilConvo.0      3      3      3      3      4      3      2   87
## 92          Hon_WasteTime      3      3      4      3      5      4      4   92
## 93          Hon_ImprEffic      3      2      3      2      5      4      5   42
## 94          Hon_AvoidSusp      3      3      4      3      5      1      4   44
## 95         Hon_FacilConvo      4      3      3      2      5      3      3   20
## 96         Hon_GetDeserve      4      4      4      2      5      4      3   47
## 97            Honesty_137      2      3      5      3      5      5      3  137
## 98             Hon_ActNat      4      3      4      2      5      4      3   62
## 99             Hon_BeBest      3      2      3      2      5      5      5   88
## 100         Hon_DrawAtten      3      4      4      2      5      2      2  113
## 101          Hon_Autonomy      4      3      4      3      4      2      5  128
## 102        Hon_PutInPlace      4      4      4      4      3      2      4   56
## 103            Hon_BeResp      4      4      4      4      5      4      4   60
## 104          Hon_MakeFair      4      3      4      2      5      4      2  127
## 105      Hon_ShowFairness      3      3      4      4      4      4      3   10
## 106        Hon_AvoidGuilt      2      4      4      4      5      5      4   19
## 107        Hon_GetHonesty      4      4      4      4      4      4      4   38
## 108         Hon_MakeWorth      3      3      4      4      3      4      4   63
## 109         Hon_RecogProb      4      3      5      2      2      1      4    7
## 110          Hon_KeepFirm      3      3      4      3      3      3      5   35
## 111          Hon_SeekHelp      3      4      5      5      4      3      4   58
## 112         Hon_FeelClose      3      3      4      4      4      5      5  152
## 113           Hon_BeAware      4      4      4      1      5      1      5   36
## 114          Hon_MakeMean      3      4      4      4      4      4      4   64
## 115           Hon_VoidCov      4      1      4      5      5      5      5    6
## 116      Hon_AvBreakTrust      4      4      5      5      5      5      2   30
## 117         Hon_FacilWork      3      4      4      4      5      5      4   39
## 118        Hon_HelpImprov      4      3      4      4      5      5      4   40
## 119     Hon_HelpSolveProb      4      4      4      4      5      5      4   52
## 120            Hon_Deepen      3      4      4      5      4      5      5   67
## 121           Hon_LongRun      4      5      4      4      5      5      4   72
## 122         Hon_FacilPlan      3      3      4      4      5      5      4   21
## 123       Hon_AvoidCaught      5      4      4      4      5      5      5   68
## 124        Hon_HelpProduc      3      4      5      3      5      5      4   71
## 125         Hon_GainTrust      3      4      4      5      5      5      5   22
## 126       Hon_AvoidPollut      5      3      5      4      5      5      4   34
## 127        Hon_HelpDoBett      4      4      4      4      3      5      5   51
## 128             Hon_BeUnd      3      3      4      5      5      5      5   65
## 129         Hon_TreatResp      5      3      4      5      5      5      4   69
## 130            Hon_GoodEx      4      3      4      4      5      5      5   16
## 131        Hon_EffecCoord      2      4      4      4      5      5      5   45
## 132          Hon_AvoidMis      4      4      4      5      5      4      4   17
## 133   Hon_ReduUncertainty      4      4      4      3      5      5      5   41
## 134        Hon_ConveyInfo      3      3      5      4      5      5      5   46
## 135       Hon_ShareMyself      5      4      5      5      5      5      4   49
## 136         Hon_CommClear      4      5      4      4      5      5      5   66
## 137         Hon_AcknFault      4      4      5      4      4      5      5    1
## 138        Hon_RightThing      4      4      5      4      5      5      5    2
## 139        Hon_BeBestSelf      4      3      5      4      5      5      5   23
## 140       Hon_AvoidViolat      4      4      5      5      5      5      5   37
## 141         Hon_AvoidConf      4      4      5      4      5      5      5   43
## 142         Hon_FosterUnd      4      4      4      5      5      5      5  104
## 143             Hon_Chest      3      5      5      5      5      4      5   28
## 144         Hon_AvoidFake      4      4      5      4      5      5      5   61
## 145       Hon_ShowHonesty      4      4      5      4      5      5      5    9
## 146        Hon_Self_Image      4      4      5      5      5      5      5   48
## 147        Hon_AvoidGross      5      1      5      5      5      5      5   33
## 148       Hon_ExpFeelings      4      5      5      5      5      5      5    8
## 149           Hon_ImpInfo      4      5      5      5      5      5      5   27
## 150        Hon_BeYourself      5      5      5      5      5      5      4   70
## 151            Hon_BeAuth      4      4      5      5      5      5      4   73
## 152    Hon_ExpressHowFeel      4      5      5      5      5      5      5   74
## 153        Hon_NeedToKnow      4      5      5      5      5      5      5   12
## 154         Hon_AvoidLiar      5      5      5      5      5      5      5   24
## 155 Hon_CorrectInaccurate      5      5      5      5      5      5      5   57
##     R1_Dis R2_Dis R3_Dis R4_Dis R5_Dis R6_Dis R7_Dis Avg_HonLikelihood
## 1        5      5      5      5      5      5      5          1.000000
## 2        5      4      4      4      5      5      5          1.000000
## 3        5      5      5      4      5      5      4          1.142857
## 4        4      3      5      5      5      5      5          1.142857
## 5        4      4      5      4      5      5      5          1.428571
## 6        4      4      5      3      5      5      4          1.142857
## 7        5      5      3      4      3      3      4          1.000000
## 8        4      4      5      5      5      5      4          1.857143
## 9        4      4      5      5      5      3      5          1.714286
## 10       4      4      5      4      5      5      4          2.000000
## 11       4      4      4      5      5      5      4          2.142857
## 12       4      4      5      4      5      4      3          1.857143
## 13       2      5      5      5      5      2      5          2.000000
## 14       3      3      5      5      5      4      4          2.000000
## 15       4      4      5      4      5      5      4          2.428571
## 16       4      3      5      5      5      3      4          2.142857
## 17       4      3      5      5      5      5      5          2.571429
## 18       3      3      4      1      4      4      5          1.428571
## 19       4      4      5      5      5      5      4          2.571429
## 20       4      2      5      5      4      4      4          2.000000
## 21       3      3      5      5      5      3      4          2.142857
## 22       4      4      5      5      5      5      4          2.714286
## 23       4      3      4      5      5      5      4          2.428571
## 24       3      4      4      5      5      2      4          2.000000
## 25       4      2      4      4      5      3      4          1.857143
## 26       4      4      4      5      5      4      4          2.428571
## 27       3      3      4      4      5      2      4          1.857143
## 28       4      2      4      5      5      3      4          2.142857
## 29       3      3      4      4      5      3      4          2.000000
## 30       3      3      4      4      5      3      4          2.000000
## 31       4      4      5      5      5      4      4          2.714286
## 32       3      2      4      4      5      4      4          2.000000
## 33       4      3      4      4      5      3      4          2.285714
## 34       3      3      5      4      3      1      4          1.714286
## 35       4      3      5      5      5      3      4          2.571429
## 36       4      3      4      5      4      2      4          2.142857
## 37       4      3      4      5      4      3      4          2.428571
## 38       2      4      5      4      5      4      4          2.571429
## 39       3      4      4      4      5      3      4          2.428571
## 40       3      3      5      4      5      4      3          2.428571
## 41       3      2      4      4      5      4      3          2.285714
## 42       3      3      5      5      3      4      5          2.714286
## 43       3      3      3      5      5      4      4          2.571429
## 44       4      3      4      5      4      4      5          2.857143
## 45       3      2      5      5      5      3      4          2.571429
## 46       3      4      3      4      5      4      4          2.571429
## 47       4      3      4      5      5      4      4          3.000000
## 48       3      3      4      4      5      3      5          2.714286
## 49       4      3      4      3      5      3      4          2.571429
## 50       3      1      3      2      5      2      4          1.714286
## 51       4      3      5      4      5      4      3          2.857143
## 52       4      4      3      4      5      4      4          3.000000
## 53       4      4      3      4      5      4      2          2.714286
## 54       4      3      4      5      5      3      4          3.000000
## 55       2      3      5      4      5      3      2          2.428571
## 56       3      1      4      4      3      2      4          2.000000
## 57       3      3      4      3      5      5      5          3.000000
## 58       3      3      5      5      5      2      4          2.857143
## 59       4      3      4      3      5      3      4          2.714286
## 60       3      3      4      4      5      4      4          3.000000
## 61       3      2      2      5      5      3      4          2.571429
## 62       3      3      4      5      5      3      5          3.142857
## 63       4      2      4      3      5      2      4          2.571429
## 64       3      3      3      4      5      4      2          2.571429
## 65       4      2      3      5      5      2      3          2.571429
## 66       4      3      4      3      4      3      5          2.857143
## 67       4      3      4      5      5      3      4          3.285714
## 68       4      3      3      5      5      3      4          3.142857
## 69       4      4      3      4      4      4      3          3.000000
## 70       4      3      4      4      5      4      4          3.285714
## 71       3      3      4      5      3      3      4          2.857143
## 72       4      4      2      4      5      3      4          3.142857
## 73       3      3      4      4      4      2      2          2.571429
## 74       4      3      3      3      3      1      2          2.285714
## 75       4      2      4      3      4      3      4          3.000000
## 76       3      2      3      5      5      3      4          3.285714
## 77       3      2      4      2      4      2      4          2.714286
## 78       3      2      4      2      4      2      2          2.428571
## 79       3      2      3      2      3      2      3          2.428571
## 80       2      3      4      4      4      4      3          3.285714
## 81       3      2      3      5      4      3      3          3.142857
## 82       3      2      2      4      5      2      4          3.000000
## 83       3      4      3      5      5      3      3          3.571429
## 84       3      3      4      3      5      3      4          3.428571
## 85       3      2      4      4      5      3      3          3.428571
## 86       3      3      4      4      3      3      3          3.285714
## 87       3      2      4      4      3      1      4          3.000000
## 88       3      4      2      5      5      4      3          3.857143
## 89       4      3      2      4      5      1      4          3.428571
## 90       3      3      1      4      4      1      2          2.714286
## 91       3      2      4      2      3      3      3          3.000000
## 92       2      2      4      4      5      4      3          3.714286
## 93       3      2      3      3      5      3      2          3.428571
## 94       3      3      2      3      3      2      4          3.285714
## 95       3      2      3      2      3      2      4          3.285714
## 96       3      3      3      3      5      1      3          3.714286
## 97       4      2      2      5      3      2      2          3.714286
## 98       2      2      2      2      4      2      4          3.571429
## 99       2      3      3      5      1      3      1          3.571429
## 100      2      2      3      1      2      1      4          3.142857
## 101      2      2      4      2      3      2      3          3.571429
## 102      3      2      2      3      3      1      3          3.571429
## 103      2      2      2      4      5      2      4          4.142857
## 104      2      2      3      2      2      1      2          3.428571
## 105      2      2      2      2      2      1      3          3.571429
## 106      4      2      2      2      2      3      2          4.000000
## 107      3      3      3      3      1      2      2          4.000000
## 108      2      2      2      2      2      1      3          3.571429
## 109      3      1      1      1      1      1      1          3.000000
## 110      2      2      1      2      1     NA      2          3.428571
## 111      3      1      2      1      2      3      3          4.000000
## 112      3      2      3      1      3      2      1          4.000000
## 113      3      2      1      1      1      1      1          3.428571
## 114      3      2      1      2      2      1      2          3.857143
## 115      3      1      2      2      2      3      1          4.142857
## 116      2      3      1      4      3      1      1          4.285714
## 117      3      2      2      1      1      2      3          4.142857
## 118      2      2      2      2      2      2      2          4.142857
## 119      3      2      2      2      3      2      1          4.285714
## 120      3      2      2      2      3      1      2          4.285714
## 121      2      2      2      2      3      2      3          4.428571
## 122      3      2      2      1      1      1      2          4.000000
## 123      1      3      4      2      2      2      2          4.571429
## 124      3      2      2      1      1      2      2          4.142857
## 125      3      2      2      2      2      2      1          4.428571
## 126      2      3      2      2      1      2      2          4.428571
## 127      2      2      1      2      1      2      2          4.142857
## 128      3      3      2      1      2      1      1          4.285714
## 129      2      3      2      1      2      2      2          4.428571
## 130      2      2      2      2      2      1      1          4.285714
## 131      3      2      2      1      1      1      1          4.142857
## 132      2      2      2      2      1      1      1          4.285714
## 133      2      2      2      2      1      1      1          4.285714
## 134      3      3      1      1      1      1      1          4.285714
## 135      3      2      1      5      1      1      1          4.714286
## 136      3      2      2      2      2      1      1          4.571429
## 137      4      2      1      1      1      1      1          4.428571
## 138      2      2      2      1      2      2      1          4.571429
## 139      3      2      1      1      1      2      1          4.428571
## 140      2      2      2      1      1      2      3          4.714286
## 141      2      2      1      2      2      2      1          4.571429
## 142      4      2      2      1      1      1      1          4.571429
## 143      4      1      2      1      1      1      1          4.571429
## 144      2      2      2      1      2      1      1          4.571429
## 145      3      2      1      1      1      1      1          4.571429
## 146      2      2      1      2      1      1      1          4.714286
## 147      1      1      1      1      1      1      1          4.428571
## 148      3      1      1      1      1      1      1          4.857143
## 149      2      1      2      1      1      1      1          4.857143
## 150      2      1      1      1      1      1      2          4.857143
## 151      1      1      1      1      1      1      1          4.571429
## 152      2      1      2      1      1      1      1          4.857143
## 153      2      1      1      1      1      1      1          4.857143
## 154      1      1      1      2      1      1      1          5.000000
## 155      1      1      1      1      1      1      1          5.000000
##     Avg_DisLikelihood Diff_Likelihood  abs_diff
## 1            5.000000      -4.0000000 4.0000000
## 2            4.571429      -3.5714286 3.5714286
## 3            4.714286      -3.5714286 3.5714286
## 4            4.571429      -3.4285714 3.4285714
## 5            4.571429      -3.1428571 3.1428571
## 6            4.285714      -3.1428571 3.1428571
## 7            3.857143      -2.8571429 2.8571429
## 8            4.571429      -2.7142857 2.7142857
## 9            4.428571      -2.7142857 2.7142857
## 10           4.428571      -2.4285714 2.4285714
## 11           4.428571      -2.2857143 2.2857143
## 12           4.142857      -2.2857143 2.2857143
## 13           4.142857      -2.1428571 2.1428571
## 14           4.142857      -2.1428571 2.1428571
## 15           4.428571      -2.0000000 2.0000000
## 16           4.142857      -2.0000000 2.0000000
## 17           4.571429      -2.0000000 2.0000000
## 18           3.428571      -2.0000000 2.0000000
## 19           4.571429      -2.0000000 2.0000000
## 20           4.000000      -2.0000000 2.0000000
## 21           4.000000      -1.8571429 1.8571429
## 22           4.571429      -1.8571429 1.8571429
## 23           4.285714      -1.8571429 1.8571429
## 24           3.857143      -1.8571429 1.8571429
## 25           3.714286      -1.8571429 1.8571429
## 26           4.285714      -1.8571429 1.8571429
## 27           3.571429      -1.7142857 1.7142857
## 28           3.857143      -1.7142857 1.7142857
## 29           3.714286      -1.7142857 1.7142857
## 30           3.714286      -1.7142857 1.7142857
## 31           4.428571      -1.7142857 1.7142857
## 32           3.714286      -1.7142857 1.7142857
## 33           3.857143      -1.5714286 1.5714286
## 34           3.285714      -1.5714286 1.5714286
## 35           4.142857      -1.5714286 1.5714286
## 36           3.714286      -1.5714286 1.5714286
## 37           3.857143      -1.4285714 1.4285714
## 38           4.000000      -1.4285714 1.4285714
## 39           3.857143      -1.4285714 1.4285714
## 40           3.857143      -1.4285714 1.4285714
## 41           3.571429      -1.2857143 1.2857143
## 42           4.000000      -1.2857143 1.2857143
## 43           3.857143      -1.2857143 1.2857143
## 44           4.142857      -1.2857143 1.2857143
## 45           3.857143      -1.2857143 1.2857143
## 46           3.857143      -1.2857143 1.2857143
## 47           4.142857      -1.1428571 1.1428571
## 48           3.857143      -1.1428571 1.1428571
## 49           3.714286      -1.1428571 1.1428571
## 50           2.857143      -1.1428571 1.1428571
## 51           4.000000      -1.1428571 1.1428571
## 52           4.000000      -1.0000000 1.0000000
## 53           3.714286      -1.0000000 1.0000000
## 54           4.000000      -1.0000000 1.0000000
## 55           3.428571      -1.0000000 1.0000000
## 56           3.000000      -1.0000000 1.0000000
## 57           4.000000      -1.0000000 1.0000000
## 58           3.857143      -1.0000000 1.0000000
## 59           3.714286      -1.0000000 1.0000000
## 60           3.857143      -0.8571429 0.8571429
## 61           3.428571      -0.8571429 0.8571429
## 62           4.000000      -0.8571429 0.8571429
## 63           3.428571      -0.8571429 0.8571429
## 64           3.428571      -0.8571429 0.8571429
## 65           3.428571      -0.8571429 0.8571429
## 66           3.714286      -0.8571429 0.8571429
## 67           4.000000      -0.7142857 0.7142857
## 68           3.857143      -0.7142857 0.7142857
## 69           3.714286      -0.7142857 0.7142857
## 70           4.000000      -0.7142857 0.7142857
## 71           3.571429      -0.7142857 0.7142857
## 72           3.714286      -0.5714286 0.5714286
## 73           3.142857      -0.5714286 0.5714286
## 74           2.714286      -0.4285714 0.4285714
## 75           3.428571      -0.4285714 0.4285714
## 76           3.571429      -0.2857143 0.2857143
## 77           3.000000      -0.2857143 0.2857143
## 78           2.714286      -0.2857143 0.2857143
## 79           2.571429      -0.1428571 0.1428571
## 80           3.428571      -0.1428571 0.1428571
## 81           3.285714      -0.1428571 0.1428571
## 82           3.142857      -0.1428571 0.1428571
## 83           3.714286      -0.1428571 0.1428571
## 84           3.571429      -0.1428571 0.1428571
## 85           3.428571       0.0000000 0.0000000
## 86           3.285714       0.0000000 0.0000000
## 87           3.000000       0.0000000 0.0000000
## 88           3.714286       0.1428571 0.1428571
## 89           3.285714       0.1428571 0.1428571
## 90           2.571429       0.1428571 0.1428571
## 91           2.857143       0.1428571 0.1428571
## 92           3.428571       0.2857143 0.2857143
## 93           3.000000       0.4285714 0.4285714
## 94           2.857143       0.4285714 0.4285714
## 95           2.714286       0.5714286 0.5714286
## 96           3.000000       0.7142857 0.7142857
## 97           2.857143       0.8571429 0.8571429
## 98           2.571429       1.0000000 1.0000000
## 99           2.571429       1.0000000 1.0000000
## 100          2.142857       1.0000000 1.0000000
## 101          2.571429       1.0000000 1.0000000
## 102          2.428571       1.1428571 1.1428571
## 103          3.000000       1.1428571 1.1428571
## 104          2.000000       1.4285714 1.4285714
## 105          2.000000       1.5714286 1.5714286
## 106          2.428571       1.5714286 1.5714286
## 107          2.428571       1.5714286 1.5714286
## 108          2.000000       1.5714286 1.5714286
## 109          1.285714       1.7142857 1.7142857
## 110          1.666667       1.7619048 1.7619048
## 111          2.142857       1.8571429 1.8571429
## 112          2.142857       1.8571429 1.8571429
## 113          1.428571       2.0000000 2.0000000
## 114          1.857143       2.0000000 2.0000000
## 115          2.000000       2.1428571 2.1428571
## 116          2.142857       2.1428571 2.1428571
## 117          2.000000       2.1428571 2.1428571
## 118          2.000000       2.1428571 2.1428571
## 119          2.142857       2.1428571 2.1428571
## 120          2.142857       2.1428571 2.1428571
## 121          2.285714       2.1428571 2.1428571
## 122          1.714286       2.2857143 2.2857143
## 123          2.285714       2.2857143 2.2857143
## 124          1.857143       2.2857143 2.2857143
## 125          2.000000       2.4285714 2.4285714
## 126          2.000000       2.4285714 2.4285714
## 127          1.714286       2.4285714 2.4285714
## 128          1.857143       2.4285714 2.4285714
## 129          2.000000       2.4285714 2.4285714
## 130          1.714286       2.5714286 2.5714286
## 131          1.571429       2.5714286 2.5714286
## 132          1.571429       2.7142857 2.7142857
## 133          1.571429       2.7142857 2.7142857
## 134          1.571429       2.7142857 2.7142857
## 135          2.000000       2.7142857 2.7142857
## 136          1.857143       2.7142857 2.7142857
## 137          1.571429       2.8571429 2.8571429
## 138          1.714286       2.8571429 2.8571429
## 139          1.571429       2.8571429 2.8571429
## 140          1.857143       2.8571429 2.8571429
## 141          1.714286       2.8571429 2.8571429
## 142          1.714286       2.8571429 2.8571429
## 143          1.571429       3.0000000 3.0000000
## 144          1.571429       3.0000000 3.0000000
## 145          1.428571       3.1428571 3.1428571
## 146          1.428571       3.2857143 3.2857143
## 147          1.000000       3.4285714 3.4285714
## 148          1.285714       3.5714286 3.5714286
## 149          1.285714       3.5714286 3.5714286
## 150          1.285714       3.5714286 3.5714286
## 151          1.000000       3.5714286 3.5714286
## 152          1.285714       3.5714286 3.5714286
## 153          1.142857       3.7142857 3.7142857
## 154          1.142857       3.8571429 3.8571429
## 155          1.000000       4.0000000 4.0000000
##                                                      goal_name
## 1   Get something that I wouldn't be able to get without lying
## 2                                    Keep a previous lie going
## 3                           Be seen as better than I really am
## 4                                      Hide something personal
## 5                                           Cover up a misdeed
## 6                                                Trick someone
## 7                                               Deceive myself
## 8                                            Avoid an argument
## 9                                       Avoid being vulnerable
## 10                       Avoid something bad that you expected
## 11                                  Protect someone's feelings
## 12                                       Avoid an overreaction
## 13                                               Keep a secret
## 14                          Avoid making someone uncomfortable
## 15                                             Avoid judgement
## 16                                  Avoid an awkward situation
## 17                  Avoid doing something you don't want to do
## 18                                              Confuse others
## 19                                            Avoid punishment
## 20                                             Avoid rejection
## 21                                Look better than I really am
## 22                                  Avoid making someone angry
## 23                                                        <NA>
## 24                                          Protect my privacy
## 25                                   Avoid a particular person
## 26                      Make someone feel better in the moment
## 27                                            Surprise someone
## 28                                            Avoid correction
## 29                                   Get out of a conversation
## 30                                          Preserve my energy
## 31                                                        <NA>
## 32                                  Keep the interaction brief
## 33                                          Avoid making waves
## 34                                Convince myself of something
## 35                                          Avoid embarassment
## 36                                           Conform to a role
## 37                                            Ensure my safety
## 38                                              Keep the peace
## 39                                                   Be polite
## 40                                       Be gentle with others
## 41                                                        <NA>
## 42                                           Tell a good story
## 43                                     Avoid others' suffering
## 44                                              Please someone
## 45                                                   Get ahead
## 46                          Protect someone from being worried
## 47                                             Get what I want
## 48                               Avoid dealing with the hassle
## 49                                             Control someone
## 50                                Allow a strategy to play out
## 51                                      Avoid losing something
## 52                                           Avoid disapproval
## 53                                 Avoid disappointing someone
## 54                                               Get attention
## 55                              Avoid having to explain myself
## 56                                            Entertain myself
## 57                                   Hurt someone's reputation
## 58                            Seem knowledgable or intelligent
## 59                            Get someone to act a certain way
## 60                                                Hurt someone
## 61                                           Follow the script
## 62                                         Look good to others
## 63                         Keep the interaction going smoothly
## 64                                       Make someone like you
## 65                                               Seem friendly
## 66                                       Get even with someone
## 67                                             Get what I want
## 68                          Protect a friend from embarassment
## 69                                                        <NA>
## 70                           Avoid being accused of wrongdoing
## 71                                 Say or do what was expected
## 72                              Avoid disappointing my parents
## 73                                          Be more attractive
## 74                            Feel as though something is true
## 75                                   Not feel bad about myself
## 76                                                        <NA>
## 77      Redirect the conversation in a more positive direction
## 78                                Avoid not knowing how to act
## 79                                       Test the consequences
## 80                                                     Be kind
## 81                                                Follow norms
## 82                Help someone get something important to them
## 83                        Protect my relationship with someone
## 84                Get someone to do what you needed them to do
## 85                                   Change someone's behavior
## 86                                Help someone gain confidence
## 87                                 Keep the conversation going
## 88                                Avoid making a problem worse
## 89                    Keep someone from embarassing themselves
## 90                                                   Be humble
## 91                                                        <NA>
## 92                                       Avoid wasting my time
## 93                                                        <NA>
## 94                             Avoid beeing seen as suspicious
## 95                                     Facilitate conversation
## 96                                     Get something I deserve
## 97                                                        <NA>
## 98                                               Act naturally
## 99                                          Be the best person
## 100                   Draw attention to what is most important
## 101                         Assert my autonomy or independence
## 102                                 Put someone in their place
## 103                                     Be respected by others
## 104                                           Make things fair
## 105                           Show that I am fair and balanced
## 106                                       Avoid feeling guilty
## 107                              Get someone else to be honest
## 108                         Make the conversation worth having
## 109                                  Recognize my own problems
## 110                                         Keep a firm ground
## 111                          Seek help or support from someone
## 112                                      Feel close to someone
## 113                                      Know what is going on
## 114                           Make the conversation meaningful
## 115                                          Avoid the coverup
## 116                             Avoid breaking someone's trust
## 117                                    Facilitate others' work
## 118                                       Help someone improve
## 119                               Help someone solve a problem
## 120                          Deepen my connection with someone
## 121                               Help someone in the long run
## 122                               Facilitate people's planning
## 123                              Avoid getting caught in a lie
## 124                            Help someone be more productive
## 125                                                 Gain trust
## 126                           Avoid polluting the relationship
## 127                       Help someone do better in the future
## 128                                              Be understood
## 129                                 Treat someone with respect
## 130                              Set a good example for others
## 131                         Effectively coordinate with others
## 132                                   Avoid a misunderstanding
## 133                                         Reduce uncertainty
## 134                                                       <NA>
## 135                                   Share myself with others
## 136                                        Communicate clearly
## 137                                          Acknowledge fault
## 138                            Know that I did the right thing
## 139                                            Be my best self
## 140                         Avoid a feeling of moral violation
## 141                                            Avoid Confusion
## 142                                       Foster understanding
## 143                                 Get something off my chest
## 144                            Avoid seeming fake or insincere
## 145                            Show that I am an honest person
## 146  Act consistently with my self-image (as an honest person)
## 147                   Avoid the gross feeling I get from lying
## 148                                        Express my feelings
## 149                               Convey important information
## 150                                                Be yourself
## 151                                               Be authentic
## 152                                                       <NA>
## 153                   Tell someone something they need to know
## 154                                         Avoid being a liar
## 155                            Correct an inaccurate statement
exemplar_goals <- goals %>%
  filter(CASE_LBL %in% c("Hon_CorrectInaccurate", "Hon_NeedToKnow", "Hon_BeYourself", "Hon_Chest", "Hon_RightThing", "Hon_AvoidMis", "Hon_TreatResp", "Hon_HelpProduc", "Hon_FeelClose", "Hon_AvoidGuilt", "Hon_PutInPlace", "Hon_WasteTime", "Hon_GainConfi", "Hon_GetOtherDo", "Hon_ToLookGood", "Hon_AvoidDisap", "Hon_Story", "Hon_GentleOther", "Hon_KeepBrief", "Hon_AvoidAwk", "Hon_CoverUp", "Hon_GetSometh"))

ggplot(data = exemplar_goals, aes(x = Diff_Likelihood, y = reorder(CASE_LBL, Diff_Likelihood)))+
         geom_point()

exemplar_goals <- exemplar_goals %>%
  mutate(
    R1_Dif = R1_Hon - R1_Dis,
    R2_Dif = R2_Hon - R2_Dis,
    R3_Dif = R3_Hon - R3_Dis,
    R4_Dif = R4_Hon - R4_Dis,
    R5_Dif = R5_Hon - R5_Dis,
    R6_Dif = R6_Hon - R6_Dis,
    R7_Dif = R7_Hon - R7_Dis)

exemplar_goals <- exemplar_goals %>%
  group_by(CASE_LBL) %>%
  mutate(sd = sd(unlist(select(cur_data(), R1_Dif:R7_Dif))))

ggplot(data = exemplar_goals, aes(x = Diff_Likelihood, y = reorder(CASE_LBL, Diff_Likelihood)))+
         geom_point()+
  geom_errorbar(aes(xmin = Diff_Likelihood - sd, xmax = Diff_Likelihood + sd))

strong_goals <- goals %>%
  filter(Avg_HonLikelihood >= 4.0 | Avg_DisLikelihood >= 3.8)
goals <- goals %>%
  mutate(
    R1_Dif = R1_Hon - R1_Dis,
    R2_Dif = R2_Hon - R2_Dis,
    R3_Dif = R3_Hon - R3_Dis,
    R4_Dif = R4_Hon - R4_Dis,
    R5_Dif = R5_Hon - R5_Dis,
    R6_Dif = R6_Hon - R6_Dis,
    R7_Dif = R7_Hon - R7_Dis)

goals <- goals %>%
  group_by(CASE_LBL) %>%
  mutate(sd = sd(unlist(select(cur_data(), R1_Dif:R7_Dif))))

goals_sd <- goals %>%
  filter(!is.na(goal_name)) %>%
ggplot(aes(x = Diff_Likelihood, y = reorder(goal_name, Diff_Likelihood), label = goal_name))+
         geom_point()+
  geom_errorbar(aes(xmin = Diff_Likelihood - sd, xmax = Diff_Likelihood + sd))+
  theme(axis.text.y = element_blank(),
        axis.ticks.y = element_blank())+
  theme_bw()

ggplotly(goals_sd, tooltip = "label") %>%
  layout(yaxis = list(showticklabels = FALSE))